﻿Public Class ProductosForm

    Private Sub RecargarDataSet()
        Me.PRODUCTOTableAdapter1.Fill(Me.ScrumDataSet1.PRODUCTO) ' Trae toda la tabla (con la inserción incluída) de la BD
    End Sub
    Private Sub LimpiarControles()
        For Each mControl As Control In grbAñadirProd.Controls
            If mControl.GetType = GetType(TextBox) Then TryCast(mControl, TextBox).Clear()
        Next
    End Sub
    Private Sub ProductosForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        RecargarDataSet()
        txtNombre.Focus()
    End Sub

    Private Sub btnAñadirProductos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAñadirProducto.Click
        For Each cajadetexto As Control In grbAñadirProd.Controls
            If cajadetexto.GetType() = GetType(TextBox) Then
                If cajadetexto.Text = "" Then
                    MessageBox.Show("No se pueden inutroducir datos vacíos, profavor prueba otra vez")
                    LimpiarControles()
                    Exit Sub
                End If
            End If
        Next

        Try
            Dim drproducto() As scrumDataSet.PRODUCTORow = ScrumDataSet.Tables("PRODUCTO").Select("NOMBRE = '" & txtNombre.Text)
            If drproducto.Length > 0 Then
                MessageBox.Show("Ese producto ya está introducido")
                Exit Sub
            End If
            PRODUCTOTableAdapter1.Insert(txtNombre.Text, txtDescripcion.Text, txtPrecio.Text)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            Exit Sub
        End Try
        RecargarDataSet()

        LimpiarControles()
    End Sub

    Private Sub btnVolver_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVolver.Click
        Me.Close()
    End Sub

    Private Sub btnLimpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLimpiar.Click
        LimpiarControles()
    End Sub

    Private Sub borrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles borrar.Click

        If MessageBox.Show("¿Está seguro de que quiere borrar este usuario?", "Advertencia", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
            Try
                PRODUCTOTableAdapter1.Delete(CODPRODUCTOTextBox.Text, NOMBRETextBox.Text, DESCRIPCIÓNTextBox.Text, PRECIOTextBox.Text)
            Catch ex As Exception
                MessageBox.Show(ex.Message)
                Exit Sub
            End Try

            RecargarDataSet()
        End If
        LimpiarControles()
    End Sub

    Private Sub Actualizar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnModificar.Click
        Try
            PRODUCTOTableAdapter1.Update(txtNombre.Text, txtDescripcion.Text, txtPrecio.Text, CODPRODUCTOTextBox.Text, NOMBRETextBox.Text, DESCRIPCIÓNTextBox.Text, PRECIOTextBox.Text)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        RecargarDataSet()
    End Sub


    Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

    End Sub

End Class